home *** CD-ROM | disk | FTP | other *** search
- object Extractform: TExtractform
- Left = 479
- Top = 121
- Width = 473
- Height = 459
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Extract'
- Color = clBtnFace
- Constraints.MinHeight = 459
- Constraints.MinWidth = 473
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnShow = FormShow
- DesignSize = (
- 465
- 425)
- PixelsPerInch = 96
- TextHeight = 13
- object Targetlabel: TLabel
- Left = 8
- Top = 336
- Width = 34
- Height = 13
- Caption = 'Target:'
- end
- object Folderlabel: TLabel
- Left = 8
- Top = 120
- Width = 32
- Height = 13
- Caption = 'Folder:'
- end
- object Drivelabel: TLabel
- Left = 8
- Top = 72
- Width = 28
- Height = 13
- Caption = 'Drive:'
- end
- object Topbevel: TBevel
- Left = 0
- Top = 65
- Width = 465
- Height = 8
- Align = alTop
- Shape = bsTopLine
- end
- object Bottombevel: TBevel
- Left = 8
- Top = 384
- Width = 449
- Height = 9
- Anchors = [akLeft, akRight, akBottom]
- Shape = bsTopLine
- end
- object Filesgroupbox: TGroupBox
- Left = 288
- Top = 80
- Width = 169
- Height = 59
- Anchors = [akTop, akRight]
- Caption = 'Files'
- TabOrder = 0
- object Selectedfilesradiobutton: TRadioButton
- Left = 8
- Top = 16
- Width = 153
- Height = 17
- Caption = 'Extract selected files only'
- TabOrder = 0
- end
- object Allfilesradiobutton: TRadioButton
- Left = 8
- Top = 36
- Width = 153
- Height = 17
- Caption = 'Extract all files'
- Checked = True
- TabOrder = 1
- TabStop = True
- end
- end
- object Optionsgroupbox: TGroupBox
- Left = 288
- Top = 146
- Width = 169
- Height = 83
- HelpType = htKeyword
- Anchors = [akTop, akRight]
- Caption = 'Options'
- TabOrder = 1
- object Overwritelabel: TLabel
- Left = 8
- Top = 19
- Width = 48
- Height = 13
- Caption = 'Overwrite:'
- end
- object Createfolderscheckbox: TCheckBox
- Left = 8
- Top = 40
- Width = 153
- Height = 17
- Caption = 'Extract files with full path'
- Checked = True
- State = cbChecked
- TabOrder = 0
- end
- object Openfoldercheckbox: TCheckBox
- Left = 8
- Top = 60
- Width = 153
- Height = 17
- Caption = 'Open folder after extraction'
- TabOrder = 1
- end
- object Overwritecombobox: TComboBox
- Left = 64
- Top = 16
- Width = 97
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 2
- TabOrder = 2
- Text = 'Ask'
- Items.Strings = (
- 'Never'
- 'Always'
- 'Ask')
- end
- end
- object Extractbutton: TButton
- Left = 304
- Top = 392
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = 'Extract'
- Default = True
- ModalResult = 1
- TabOrder = 2
- OnClick = ExtractbuttonClick
- end
- object Cancelbutton: TButton
- Left = 384
- Top = 392
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- end
- object Targetcombobox: TComboBox
- Left = 8
- Top = 352
- Width = 273
- Height = 21
- Anchors = [akLeft, akRight, akBottom]
- ItemHeight = 13
- TabOrder = 4
- end
- object Toppanel: TPanel
- Left = 0
- Top = 0
- Width = 465
- Height = 65
- Align = alTop
- BevelOuter = bvNone
- Color = clWhite
- TabOrder = 5
- DesignSize = (
- 465
- 65)
- object Captionlabel: TLabel
- Left = 8
- Top = 8
- Width = 149
- Height = 13
- Caption = 'Extract Files From Archive'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Infolabel: TLabel
- Left = 16
- Top = 24
- Width = 384
- Height = 26
- Caption =
- 'Please select a folder to store your extracted files in eather b' +
- 'y using the folder tree or by specifying the folder in the targe' +
- 't field below.'
- WordWrap = True
- end
- object Image: TImage
- Left = 410
- Top = 8
- Width = 48
- Height = 48
- Anchors = [akTop, akRight]
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- end
- object Helpbutton: TButton
- Left = 8
- Top = 392
- Width = 75
- Height = 25
- Anchors = [akLeft, akBottom]
- Caption = 'Help'
- TabOrder = 6
- OnClick = HelpbuttonClick
- end
- object Shelltree: TPTShellTree
- Left = 8
- Top = 136
- Width = 273
- Height = 193
- Indent = 19
- OnChange = ShelltreeChange
- TabOrder = 7
- Anchors = [akLeft, akTop, akRight, akBottom]
- end
- object Shellcombobox: TPTShellCombo
- Left = 8
- Top = 88
- Width = 273
- Height = 22
- ShellTree = Shelltree
- TabOrder = 8
- Anchors = [akLeft, akTop, akRight]
- end
- end
-